The increase in wins from the Shaw Wireless launch is not correlated
with another promotion. across the rest of the Canadian, the remaining
Providences saw a large uptick from the 8/21 promotions which featured
the new handset: Samsung Galaxy Note20 5G
`%notin%` <- Negate(`%in%`)
library("ISOweek")
freedom_nation_prov_df_alb <- nation_prov_df %>% filter(`Carrier` == "Freedom Mobile", PROVINCE %in% c('Alberta')) %>% arrange(Date) %>% mutate(Week_End = ISOweek2date(strftime(Date+7, format = "%Y-W%U-6"))) %>% group_by(Carrier,Week_End) %>%
dplyr::summarise(win_vol_prov_nation = sum(win_vol_prov_nation),
loss_vol_prov_nation = sum(loss_vol_prov_nation))
freedom_nation_prov_df_bc <- nation_prov_df %>% filter(`Carrier` == "Freedom Mobile", PROVINCE %in% c('British Columbia / Colombie-Britannique')) %>% arrange(Date) %>% mutate(Week_End = ISOweek2date(strftime(Date+7, format = "%Y-W%U-6"))) %>% group_by(Carrier,Week_End) %>%
dplyr::summarise(win_vol_prov_nation = sum(win_vol_prov_nation),
loss_vol_prov_nation = sum(loss_vol_prov_nation))
freedom_nation_prov_not_alb_bc <- nation_prov_df %>% filter(`Carrier` == "Freedom Mobile", PROVINCE %notin% c('Alberta','British Columbia / Colombie-Britannique')) %>% arrange(Date) %>% mutate(Week_End = ISOweek2date(strftime(Date+7, format = "%Y-W%U-6"))) %>% group_by(Carrier,Week_End) %>%
dplyr::summarise(win_vol_prov_nation = sum(win_vol_prov_nation),
loss_vol_prov_nation = sum(loss_vol_prov_nation))
vline <- function(x = 0, color = "blue") {
list(
type = "line",
y0 = 0,
y1 = 0.8,
yref = "paper",
x0 = x,
x1 = x,
line = list(color = color, dash="dot")
)
}
shaw_intro <- list(
xref = 'paper',
x = 0.5,
y = 5000,
text = paste("Shaw Wireless Launch<br>7/30/22"),
font = list(family = 'Arial',
size = 16,
color = 'rgba(67,67,67,1)'),
showarrow= F)
fig1 <- freedom_nation_prov_df_alb %>% plot_ly(x= ~Week_End, y= ~win_vol_prov_nation, type = "scatter", mode = "lines",
line = list(color = "blue",width = 2),
name = "Alberta wins",
text = paste("Week End:", freedom_nation_prov_df_alb$Week_End, "<br>Wins:", format(freedom_nation_prov_df_alb$win_vol_prov_nation, big.mark = ",")),
hoverinfo = 'text') %>%
add_trace(x= ~Week_End, y= ~loss_vol_prov_nation, type = "scatter", mode = "lines",
line = list(color = "red",width = 2),
name = "Alberta loss",
text = paste("Week End:", freedom_nation_prov_df_alb$Week_End, "<br>Losses:", format(freedom_nation_prov_df_alb$loss_vol_prov_nation, big.mark = ",")),
hoverinfo = 'text')
fig1 <- fig1 %>% layout(annotations = shaw_intro, shapes = list(vline(as.Date("07/30/2020", format= "%m/%d/%y"))),
yaxis = list(title = "Volume"),
xaxis = list(title = "Week End"),
title = "Freedom Mobile Alberta Wins/Losses Trend")
fig2 <- freedom_nation_prov_df_bc %>% plot_ly(x= ~Week_End, y= ~win_vol_prov_nation, type = "scatter", mode = "lines",
line = list(color = "blue",width = 2),
name = "B.C wins",
text = paste("Week End:", freedom_nation_prov_df_bc$Week_End, "<br>Wins:", format(freedom_nation_prov_df_bc$win_vol_prov_nation, big.mark = ",")),
hoverinfo = 'text') %>%
add_trace(x= ~Week_End, y= ~loss_vol_prov_nation, type = "scatter", mode = "lines",
line = list(color = "red",width = 2),
name = "B.C loss",
text = paste("Week End:", freedom_nation_prov_df_bc$Week_End, "<br>Losses:", format(freedom_nation_prov_df_bc$loss_vol_prov_nation, big.mark = ",")),
hoverinfo = 'text')
fig2 <- fig2 %>% layout(shapes = list(vline(as.Date("07/30/2020", format= "%m/%d/%y"))),
yaxis = list(title = "Volume"),
xaxis = list(title = "Week End"),
title = "Freedom Mobile British Columbia Wins/Losses Trend")
fig3 <- freedom_nation_prov_not_alb_bc %>% plot_ly(x= ~Week_End, y= ~win_vol_prov_nation, type = "scatter", mode = "lines",
line = list(color = "teal",width = 2),
name = "Not Alberta or B.C wins",
text = paste("Week End:", freedom_nation_prov_not_alb_bc$Week_End, "<br>Wins:", format(freedom_nation_prov_not_alb_bc$win_vol_prov_nation, big.mark = ",")),
hoverinfo = 'text') %>%
add_trace(x= ~Week_End, y= ~loss_vol_prov_nation, type = "scatter", mode = "lines",
line = list(color = "orange",width = 2),
name = "Not Alberta or B.C loss",
text = paste("Week End:", freedom_nation_prov_not_alb_bc$Week_End, "<br>Losses:", format(freedom_nation_prov_not_alb_bc$loss_vol_prov_nation, big.mark = ",")),
hoverinfo = 'text')
fig3 <- fig3 %>% layout(shapes = list(vline(as.Date("07/30/2020", format= "%m/%d/%y"))),
yaxis = list(title = "Volume"),
xaxis = list(title = "Week End"),
title = "Freedom Mobile British Columbia Wins/Losses Trend")
subplot(fig1,fig2,fig3, nrows= 3, shareX = T)